<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Untitled Document</title>
</head>
<!--#include file="../Connect/Connection.asp"-->
<!--#include file="../Connect/adovbs.inc"-->
<body>
<%
	Set cnn=Server.CreateObject("ADODB.Connection")
	Set cmd=Server.CreateObject("ADODB.Command")
	cnn.open connStr & ";Initial catalog=sms_d"
	
With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdStoredProc
    .Commandtext = "usp_GetRowStamp"	
	.Parameters.Append .CreateParameter("@sRowStamp", adVarChar, adParamOutput, 100)
	.Execute
End with

	Response.Write "--["
	Response.Write cmd.Parameters("@sRowStamp")
	Response.Write "]--<br><br>"
	
	Stamp=cmd.Parameters("@sRowStamp")
	set cmd=nothing
	
	Response.Write "["
	Response.Write Stamp
	Response.Write "]"
	response.Redirect "set.asp?param=" & Stamp
%>
</body>
</html>
